home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / mmailp.idb / usr / lib / Zmail / bin / sh-versions / metasend.z / metasend
Encoding:
Text File  |  1997-01-22  |  12.3 KB  |  564 lines
  1. : 
  2. # Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
  3. # 
  4. # Permission to use, copy, modify, and distribute this material 
  5. # for any purpose and without fee is hereby granted, provided 
  6. # that the above copyright notice and this permission notice 
  7. # appear in all copies, and that the name of Bellcore not be 
  8. # used in advertising or publicity pertaining to this 
  9. # material without the specific, prior written permission 
  10. # of an authorized representative of Bellcore.  BELLCORE 
  11. # MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY 
  12. # OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS", 
  13. # WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
  14.  
  15. # Conversion from C shell to Bourne shell by Z-Code Software Corp.
  16. # Conversion Copyright (c) 1992 Z-Code Software Corp.
  17. # Permission to use, copy, modify, and distribute this material
  18. # for any purpose and without fee is hereby granted, provided
  19. # that the above copyright notice and this permission notice
  20. # appear in all copies, and that the name of Z-Code Software not
  21. # be used in advertising or publicity pertaining to this
  22. # material without the specific, prior written permission
  23. # of an authorized representative of Z-Code.  Z-CODE SOFTWARE
  24. # MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY
  25. # OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS",
  26. # WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
  27.  
  28. # Brought into line with metamail 2.7 beta release Csh version
  29. #    Dave Shield    February 1994
  30.  
  31. if [ -z "$METAMAIL_TMPDIR" ]
  32. then METAMAIL_TMPDIR=/tmp
  33. fi
  34.  
  35. hname=`hostname`
  36. idctr=0
  37. MustDelete=0
  38. batchmode=0
  39. multipart=1
  40. if test ! -z "${SPLITSIZE:-}"
  41. then
  42.     splitsize=$SPLITSIZE
  43. else
  44.     splitsize=100000
  45. fi
  46.  
  47. ouputfile=""
  48. multipartsubtype="mixed"
  49. cdescrip="An object packed by metasend"
  50. isentity=0
  51. newid=`date | tr " :" "__"`
  52. cid="<${newid}_$idctr@${hname}>"
  53. idctr=`expr $idctr + 1`
  54.  
  55. while test ! -z "$*"
  56. do
  57.     case $1 in
  58.         -S) shift
  59.             if test -z "$*"
  60.             then
  61.             echo "-S requires a following argument, the SPLIT threshhold"
  62.             exit 1
  63.             fi
  64.             splitsize=$1
  65.             shift ;;
  66.  
  67.         -b) batchmode=1
  68.             shift ;;
  69.  
  70.         -c) shift
  71.             if test -z "$*"
  72.             then
  73.                 echo "-c requires a following argument, the CC address"
  74.             exit 1
  75.             fi
  76.             cc=$1
  77.             shift ;;
  78.  
  79.         -i) shift
  80.             if test -z "$*"
  81.             then
  82.             echo "-i requires a following argument, the Content-ID value"
  83.             exit 1
  84.             fi
  85.             cid=$1
  86.             shift ;;
  87.  
  88.         -I) shift
  89.             if test -z "$*"
  90.             then
  91.             echo "-I requires a following argument, the multipart Content-ID value"
  92.             exit 1
  93.             fi
  94.             multicid=$1
  95.             shift ;;
  96.  
  97.         -s) shift
  98.             if test -z "$*"
  99.             then
  100.             echo "-s requires a following argument, the SUBJECT"
  101.             exit 1
  102.             fi
  103.             subject=$1
  104.             shift ;;
  105.  
  106.         -t) shift
  107.             if test -z "$*"
  108.             then
  109.             echo "-t requires a following argument, the TO address"
  110.             exit 1
  111.             fi
  112.             to=$1
  113.             shift ;;
  114.  
  115.         -F) shift
  116.             if test -z "$*"
  117.             then
  118.             echo "-F requires a following argument, the FROM address"
  119.             exit 1
  120.             fi
  121.             from=$1
  122.             shift ;;
  123.  
  124.         -P) shift
  125.             if test -z "$*"
  126.             then
  127.             echo "-P requires a following argument, the preamble file name"
  128.             exit 1
  129.             fi
  130.             preamblefile=$1
  131.             shift ;;
  132.  
  133.         -e) shift
  134.             if test -z "$*"
  135.             then
  136.             echo "-e requires a following argument, the ENCODING value"
  137.             exit 1
  138.             fi
  139.             encode=$1
  140.             case "$encode" in
  141.             "base64")    encodingprog="mimencode -b";;
  142.             "x-uue")    encodingprog="uuencode \$datafile";;
  143.             "7bit")        encodingprog=cat;;
  144.             *)        encodingprog="mimencode -q"
  145.                     encode=quoted-printable ;;
  146.             esac
  147.             shift ;;
  148.  
  149.         -f) shift
  150.             if test -z "$*"
  151.             then
  152.             echo "-f requires a following argument, the DATA FILE"
  153.             exit 1
  154.             fi
  155.             datafile=$1
  156.             if test ! -r $datafile
  157.             then
  158.             echo The file $datafile does not exist
  159.             exit 1
  160.             fi
  161.             shift ;;
  162.  
  163.         -m) shift
  164.             if test -z "$*"
  165.             then
  166.             echo "-m requires a following argument, the MIME CONTENT-TYPE"
  167.             exit 1
  168.             fi
  169.             ctype=$1
  170.             if test "`echo $ctype | grep /`" = ""
  171.             then
  172.             echo Invalid content-type specified
  173.             exit 1
  174.             fi
  175.             shift ;;
  176.  
  177.         -o) shift
  178.             if test -z "$*"
  179.             then
  180.             echo "-o requires a following argument, the output file name"
  181.             exit 1
  182.             fi
  183.             outputfile=$1
  184.             shift ;;
  185.  
  186.         -/) shift
  187.             if test -z "$*"
  188.             then
  189.             echo "-/ requires a following argument, the multipart subtype"
  190.             exit 1
  191.             fi
  192.             multipartsubtype=$1
  193.             shift ;;
  194.  
  195.         -D) shift
  196.             if test -z "$*"
  197.             then
  198.             echo "-D requires a following argument, the Content-Description value"
  199.             exit 1
  200.             fi
  201.             cdescrip=$1
  202.             shift ;;
  203.  
  204.         -E) isentity=1
  205.             shift ;;
  206.  
  207.         -z) MustDelete=1
  208.             shift ;;
  209.  
  210.         -n) if test $isentity -ne 0
  211.             then
  212.             if test -z "${encode:-}"
  213.             then
  214.                 encode=7bit
  215.                 encodingprog=cat
  216.             fi
  217.             if test -z "${ctype:-}"
  218.             then
  219.                 ctype=bogus
  220.                 # Never used
  221.             fi
  222.             if test -z "${datafile:-}"
  223.             then
  224.                 echo One part is incomplete -- each part needs at least -f and -E
  225.                 exit 1
  226.             fi
  227.             else
  228.             if test -z "${ctype:-}" || test -z "${datafile:-}"
  229.             then
  230.                 echo One part is incomplete -- each part needs at least -f and -m
  231.                 exit 1
  232.             fi
  233.             fi
  234.             if test -z "${encode:-}"
  235.             then
  236.                 case "$ctype" in
  237.                 text*)    encodingprog="mimencode -q"
  238.                     encode=quoted-printable ;;
  239.                 *)    encodingprog="mimencode -b"
  240.                     encode=base64 ;;
  241.             esac
  242.             fi
  243.             eval ctype${multipart}=\"$ctype\"
  244.             eval datafile${multipart}=$datafile
  245.             eval encode${multipart}=$encode
  246.             eval cdescrip${multipart}=\"$cdescrip\"
  247.             eval cid${multipart}=\"$cid\"
  248.             eval isentity${multipart}=$isentity
  249.             eval encodingprog${multipart}=\"\$encodingprog\"
  250.  
  251.             ctype=""
  252.             datafile=""
  253.             encode=""
  254.             encodingprog=""
  255.             newid=`date | tr " :" "__"`
  256.             cid="<${newid}_$idctr@${hname}>"
  257.             idctr=`expr $idctr + 1`
  258.             cdescrip="An object packed by metasend"
  259.             isentity=0
  260.             multipart=`expr $multipart + 1`
  261.             shift ;;
  262.  
  263.         *) echo UNRECOGNIZED METASEND OPTION: $1
  264.            exit 1 ;;
  265.     esac
  266. done
  267.  
  268. if test $batchmode -eq 0
  269. then
  270.     if test -z "${to:-}"
  271.     then
  272.         echo-n "To: "
  273.         read to
  274.     fi
  275.     if test -z "${subject:-}"
  276.     then
  277.             echo-n "Subject: "
  278.         read subject
  279.     fi
  280.     if test -z "${cc:-}"
  281.     then
  282.         echo-n "CC: "
  283.         read cc
  284.     fi
  285.  
  286.     anotherpart=1
  287.     while test $anotherpart -eq 1
  288.     do
  289.         looping=1
  290.         while test $looping -ne 0
  291.         do
  292.             if test -z "${ctype:-}"
  293.             then
  294.                 echo-n "Content-type: "
  295.             read ctype
  296.         fi
  297.         if test "`echo $ctype | grep /`" = ""
  298.         then
  299.             echo Invalid content-type specified
  300.             ctype=""
  301.         else
  302.             looping=0
  303.         fi
  304.         done
  305.         if test -z "${datafile:-}"
  306.         then
  307.         looping=1
  308.         while test $looping -eq 1
  309.         do
  310.             echo-n "Name of file containing $ctype data: "
  311.             read datafile
  312.             if test -r "$datafile"
  313.             then
  314.                 looping=0
  315.             else
  316.                 echo "The file $datafile does not exist."
  317.             fi
  318.         done
  319.         fi
  320.  
  321.         if test -z "${encode:-}"
  322.         then
  323.         looping=1
  324.         while test $looping -eq 1
  325.         do
  326.             echo "Do you want to encode this data for sending through the mail?"
  327.             echo "  1 -- No, it is already in 7 bit ASCII"
  328.             echo "  2 -- Yes, encode in base64 (most efficient)"
  329.             echo "  3 -- Yes, encode in quoted-printable (less efficient, more readable)"
  330.             echo "  4 -- Yes, encode it using uuencode (not standard, being phased out)"
  331.             read encode
  332.             looping=0
  333.             case "$encode" in
  334.                 1) encodingprog=cat
  335.                    encode=7bit ;;
  336.                 2) encodingprog="mimencode -b"
  337.                    encode=base64 ;;
  338.                 3) encodingprog="mimencode -q"
  339.                    encode=quoted-printable ;;
  340.                 4) encodingprog="uuencode $datafile"
  341.                    encode=x-uue ;;
  342.                 *) echo Unrecognized answer, please try again.
  343.                    looping=1 ;;
  344.             esac
  345.         done
  346.         fi
  347.  
  348.         echo-n "Do you want to include another file too (y/n) [n] ? "
  349.         read ans
  350.         case $ans in
  351.         [Yy]*)    
  352.             eval ctype${multipart}=\"$ctype\"
  353.             eval datafile${multipart}=$datafile
  354.             eval encode${multipart}=$encode
  355.             eval encodingprog${multipart}=\"\$encodingprog\"
  356.             eval cdescrip${multipart}=\"$cdescrip\"
  357.             eval cid${multipart}=\"$cid\"
  358.             eval isentity${multipart}=$isentity
  359.             cdescrip="An object packed by metasend"
  360.             isentity=0
  361.             ctype=""
  362.             datafile=""
  363.             encode=""
  364.             encodingprog=""
  365.             newid=`date | tr " :" "__"`
  366.             cid="<${newid}_$idctr@${hname}>"
  367.             idctr=`expr $idctr + 1`
  368.             multipart=`expr $multipart + 1`
  369.             ;;
  370.         *)
  371.             anotherpart=0;;
  372.         esac
  373.     done
  374.  
  375. else
  376.     if test -z "${outputfile:-}"
  377.     then
  378.         if test -z "${to:-}" \
  379.         -o -z "${subject:-}" \
  380.         -o -z "${ctype:-}" \
  381.         -o -z "${datafile:-}"
  382.         then
  383.         echo "metasend: in batch mode, if output is not directed to a file,  -t, -s, -f, and -m are all required"
  384.         exit 1
  385.         fi
  386.     else
  387.         if test -z "${datafile:-}"
  388.         then
  389.         echo "metasend: in batch mode, -f is required."
  390.         exit 1
  391.         fi
  392.         if test $isentity -ne 0
  393.         then
  394.             if test -z "${ctype:-}"
  395.             then
  396.             ctype=bogus
  397.             #  will not be used anyway
  398.         fi
  399.         fi
  400.         if test -z "${ctype:-}"
  401.         then
  402.         echo "metasend: in batch mode, with output directed to a file, -E or -m is required."
  403.         exit 1
  404.         fi
  405.     fi
  406.  
  407.  
  408.     if test ! -r $datafile
  409.     then
  410.         echo "metasend: The file $datafile does not exist"
  411.         exit 1
  412.     fi
  413.  
  414. #    if test -z "${cc:-}"
  415. #    then
  416. #        cc=''
  417. #    fi
  418.  
  419.     if test -z "${encode:-}"
  420.     then
  421.         case "$ctype" in
  422.             text*) encodingprog="mimencode -q"
  423.                    encode=quoted-printable ;;
  424.             *) encodingprog="mimencode -b"
  425.                encode=base64 ;;
  426.         esac
  427.     else
  428.         case "$encode" in
  429.             base64) encodingprog="mimencode -b" ;;
  430.             x-uue)  encodingprog="uuencode $datafile" ;;
  431.             7bit)   encodingprog=cat ;;
  432.             *) encodingprog="mimencode -q"
  433.                encode=quoted-printable ;;
  434.         esac
  435.     fi
  436. fi
  437.  
  438. if test -z "${encode:-}"
  439. then
  440.     case "$ctype" in
  441.         text*) encodingprog="mimencode -q"
  442.                encode=quoted-printable ;;
  443.         *) encodingprog="mimencode -b"
  444.            encode=base64 ;;
  445.     esac
  446. fi
  447.  
  448. eval ctype${multipart}=\"$ctype\"
  449. eval datafile${multipart}=$datafile
  450. eval encode${multipart}=$encode
  451. eval cdescrip${multipart}=\"$cdescrip\"
  452. eval cid${multipart}=\"$cid\"
  453. eval isentity${multipart}=$isentity
  454. eval encodingprog${multipart}=\"\$encodingprog\"
  455.  
  456. fname=$METAMAIL_TMPDIR/metasend.$$
  457. echo "MIME-Version: 1.0" > $fname
  458.  
  459. if test ! -z "${to:-}"
  460. then echo "To: $to" >> $fname
  461. fi
  462. if test ! -z "${subject:-}"
  463. then echo "Subject: $subject" >> $fname
  464. fi
  465. if test ! -z "${cc:-}"
  466. then echo "CC: $cc" >> $fname
  467. fi
  468. if test ! -z "${from:-}"
  469. then echo "From: $from" >> $fname
  470. fi
  471.  
  472. if test $multipart -gt 1
  473. then
  474.     boundary=${hname}.$$.`date | tr "  " .`
  475.     newid=`date | tr " :" "__"`
  476.     if test ! -z "${multicid:-}"
  477.     then
  478.         echo "Content-ID: $multicid" >> $fname
  479.     else
  480.         echo "Content-ID: ${newid}_$idctr@${hname}" >> $fname
  481.         idctr=`expr $idctr + 1`
  482.     fi
  483.     echo "Content-type: multipart/$multipartsubtype;" >> $fname
  484.     echo "    boundary="\"$boundary\" >> $fname
  485.     echo "" >> $fname
  486.     if test ! -z "${preamblefile:-}"
  487.     then
  488.         cat $preamblefile >> $fname
  489.     else
  490.         echo "This is  a multimedia message in MIME  format.  If you are reading this" >> $fname
  491.         echo "prefix, your mail reader does  not understand MIME.  You may wish" >> $fname
  492.         echo "to look into upgrading to a newer version of  your mail reader." >> $fname
  493.     fi
  494.  
  495.     i=1
  496.     while test $multipart -ge $i
  497.     do
  498.         echo "" >> $fname
  499.         echo --$boundary >> $fname
  500.         eval isentity=\$isentity$i
  501.  
  502.         if test $isentity -eq 0
  503.         then
  504.             eval echo "Content-ID: \$cid$i" >> $fname
  505.             eval echo "Content-type: \$ctype$i" >> $fname
  506.             eval echo "Content-Description: \$cdescrip$i" >> $fname
  507.             eval echo "Content-Transfer-Encoding: \$encode$i" >> $fname
  508.             echo "" >> $fname
  509.         fi
  510.         eval \$encodingprog$i \< \$datafile$i \>\> $fname
  511.         i=`expr $i + 1`
  512.     done
  513.     echo "" >> $fname
  514.     echo --${boundary}-- >> $fname
  515.     echo "" >> $fname
  516. else
  517.     if test $isentity -eq 0
  518.     then
  519.         echo "Content-ID: $cid" >> $fname
  520.         echo "Content-type: $ctype" >> $fname
  521.         echo "Content-Description: $cdesrip" >> $fname
  522.         echo "Content-Transfer-Encoding: $encode" >> $fname
  523.     fi
  524.     echo "" >> $fname
  525.     $encodingprog < $datafile >> $fname
  526.     # Ensure last line has trailing carriage return
  527.     echo "" >> $fname
  528. fi
  529.  
  530. if test -z "${outputfile:-}"
  531. then
  532.     if test $batchmode = 0
  533.     then
  534.         echo-n "Delivering mail, please wait...  "
  535.     fi
  536.     splitmail -s $splitsize -d $fname
  537.  
  538.     if test $? -eq 0
  539.     then
  540.         if test $batchmode = 0
  541.         then
  542.             echo "Mail delivery apparently succeeded."
  543.         fi
  544.         rm -f $fname
  545.     elif test "$MustDelete" -eq 1
  546.     then
  547.         echo Mail delivery failed
  548.         rm -f $fname
  549.         exit -1
  550.     else
  551.         echo "Mail delivery failed, draft mail is in $fname"
  552.         exit -1
  553.     fi
  554. else
  555.     mv $fname $outputfile
  556.     if test $? -ne 0
  557.     then
  558.         exit -1
  559.     fi
  560. fi
  561. exit 0
  562.  
  563.  
  564.